home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / MAL ©P.f.Howden 1⁄1⁄89 / EQUATION.TXT < prev    next >
Text File  |  1989-02-13  |  216b  |  4 lines
  1. 1000 PI=3.141592#:F=(PI*SIN(5*X)/8-EXP(PI*SQR(X+1)/8)+SQR(X+PI*5/8))*SQR(1+PI*(X-1)^2/8)/((EXP(-1*X*X)-PI/4)*(1+PI*(X+1)^2/8))+PI/8
  2. 10 'F(0)=X(0)*X(0)+X(0)*X(1)+X(1)*X(1)-3:RETURN
  3. 11 'F(1)=SIN(X(0))-X(1)*X(1):RETURN
  4.